home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
game
/
map_quiz
/
a_asia.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
16KB
|
352 lines
1000 ' ******************************************************************
1010 ' * *
1020 ' * :::::::::::: A_ASIA.BAS :::::::::::::: *
1030 ' * Programmed By T.K.Mosaku *
1040 ' * ~~~~~~~~~~~~~~~~~~~~~~~~ *
1050 ' ******************************************************************
1060 '
1070 '** 画面表示 **
1080 MENU=1
1090 LOAD@"D_AZMAP.TIF", (0, 0)
1100 LOAD@"F_SWICH.TIF", (7, 7)
1110 LOAD@"F_SWICH3.TIF",(87,7)
1120 '
1130 '** MENU 画面 **
1140 '
1150 *MENU_GAMEN
1160 CLS 4:SIR=0
1170 LINE (205,416)-(442,435),PSET,%2,BF,%13
1180 LOCATE 4, 21:COLOR 1:PRINT"世界の国名クイズ・・・・・何問に挑戦しますか。"
1190 LOCATE 25,22:COLOR 2:PRINT" 5問 10問 20問 30問 40問"
1200 LOCATE 48,23:COLOR 1:PRINT"左クリックして選んで下さい。"
1210 '
1220 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
1230 '
1240 '** MENU 選択 **
1250 X=MOUSE(4,0):Y=MOUSE(5,0)
1260 IF X>93 AND X<117 AND Y>27 AND Y<40 THEN SIR=1 :GOTO *SIRABERU
1270 IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_1
1280 IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
1290 IF X>217 AND X<239 AND Y>420 AND Y<433 THEN PNO= 5:GOTO *MOZI
1300 IF X>258 AND X<287 AND Y>420 AND Y<433 THEN PNO=10:GOTO *MOZI
1310 IF X>305 AND X<336 AND Y>420 AND Y<433 THEN PNO=20:GOTO *MOZI
1320 IF X>353 AND X<383 AND Y>420 AND Y<433 THEN PNO=30:GOTO *MOZI
1330 IF X>401 AND X<432 AND Y>420 AND Y<433 THEN PNO=40:GOTO *MOZI
1340 GOTO 1250
1350 '
1360 '** 画面設定 **
1370 *MOZI
1380 QQN=0
1390 IF QQN=2 THEN GOTO 1640
1400 CLS 4
1410 LINE (205,416)-(442,435),PSET,%4,BF
1420 LOAD@ "E_GRAPH.TIF",(165,454)
1430 LOCATE 5, 21:COLOR 1:PRINT"問 題"
1440 LOCATE 25,22:COLOR 2:PRINT" "
1450 LOCATE 20,23:COLOR 1
1460 PRINT"今までの成績 正答数 正答率 %"
1470 IF QQN=1 THEN QQN=QQN+1:GOTO 1640
1480 '
1490 '** MAIN LOOTINE **
1500 CY=0:CN=0:CCN=0:DIM KIR(PNO-1):DIM NFW(PNO):KIRN=0:QQN=0
1510 '
1520 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1
1530 '
1540 RANDOMIZE TIME
1550 NFW(0)=INT(RND*46)
1560 T=1
1570 IF CCN=PNO THEN GOTO 1730
1580 N=INT(RND*46)+1
1590 FOR J=0 TO T-1
1600 IF NFW(J)=N THEN GOTO 1580
1610 NEXT J
1620 NFW(T)=N:QQ=N
1630 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
1640 TTN=0:BN=0
1650 IF QQ=<10 THEN Q=QQ :GOTO *M0
1660 IF QQ>10 AND QQ=<20 THEN Q=QQ-10:GOTO *M1
1670 IF QQ>20 AND QQ=<30 THEN Q=QQ-20:GOTO *M2
1680 IF QQ>30 AND QQ=<40 THEN Q=QQ-30:GOTO *M3
1690 IF QQ>40 AND QQ=<50 THEN Q=QQ-40:GOTO *M4
1700 CCN=CCN+1:T=T+1:GOTO 1570
1710 T=T+1:GOTO 1570
1720 '
1730 IF KIRN=0 THEN 3840 ELSE 3610
1740 '
1750 *M0:ON Q GOTO *A1, *A2, *A3, *A4, *A5, *A6, *A7, *A8, *A9, *A10
1760 *M1:ON Q GOTO *A11,*A12,*A13,*A14,*A15,*A16,*A17,*A18,*A19,*A21
1770 *M2:ON Q GOTO *A21,*A22,*A23,*A24,*A25,*A26,*A27,*A28,*A29,*A30
1780 *M3:ON Q GOTO *A31,*A32,*A33,*A34,*A35,*A36,*A37,*A38,*A39,*A40
1790 *M4:ON Q GOTO *A41,*A42,*A43,*A44,*A45,*A46,*A47,*A48
1800 '
1810 *A1 :A$="イエメン" :XP=129:YP=224 :GOTO *SENTAKU
1820 *A2 :A$="オ-マン" :XP=182:YP=210 :GOTO *SENTAKU
1830 *A3 :A$="アラブ首長国連邦" :XP=167:YP=204 :GOTO *SENTAKU
1840 *A4 :A$="カタ-ル" :XP=161:YP=195 :GOTO *SENTAKU
1850 *A5 :A$="バ-レン" :XP=157:YP=190 :GOTO *SENTAKU
1860 *A6 :A$="サウジアラビア" :XP=141:YP=187 :GOTO *SENTAKU
1870 *A7 :A$="ヨルダン" :XP=124:YP=157 :GOTO *SENTAKU
1880 *A8 :A$="イスラエル" :XP=103:YP=143 :GOTO *SENTAKU
1890 *A9 :A$="レバノン" :XP=129:YP=121 :GOTO *SENTAKU
1900 *A10 :A$="シリア" :XP=134:YP=150 :GOTO *SENTAKU
1910 *A11 :A$="イラク" :XP=150:YP=158 :GOTO *SENTAKU
1920 *A12 :A$="クウェ-ト" :XP=154:YP=273 :GOTO *SENTAKU
1930 *A13 :A$="トルコ" :XP=123:YP=134 :GOTO *SENTAKU
1940 *A14 :A$="イラン" :XP=178:YP=159 :GOTO *SENTAKU
1950 *A15 :A$="アゼルバイジャン" :XP=180:YP=139 :GOTO *SENTAKU
1960 *A16 :A$="グルジア" :XP=169:YP=84 :GOTO *SENTAKU
1970 *A17 :A$="アルメニア" :XP=167:YP=168 :GOTO *SENTAKU
1980 *A18 :A$="アフガニスタン" :XP=224:YP=177 :GOTO *SENTAKU
1990 *A19 :A$="トルクメニスタン" :XP=202:YP=154 :GOTO *SENTAKU
2000 *A21 :A$="カザフスタン" :XP=263:YP=148 :GOTO *SENTAKU
2010 *A22 :A$="ウズベキスタン" :XP=241:YP=124 :GOTO *SENTAKU
2020 *A23 :A$="キルギスタン" :XP=254:YP=153 :GOTO *SENTAKU
2030 *A24 :A$="タジキスタン" :XP=239:YP=162 :GOTO *SENTAKU
2040 *A25 :A$="パキスタン" :XP=237:YP=187 :GOTO *SENTAKU
2050 *A26 :A$="インド" :XP=247:YP=210 :GOTO *SENTAKU
2060 *A27 :A$="ネパ-ル" :XP=279:YP=214 :GOTO *SENTAKU
2070 *A28 :A$="バングラディシュ" :XP=298:YP=233 :GOTO *SENTAKU
2080 *A29 :A$="ブ-タン" :XP=300:YP=187 :GOTO *SENTAKU
2090 *A30 :A$="ミャンマ-" :XP=319:YP=260 :GOTO *SENTAKU
2100 *A31 :A$="タイ" :XP=332:YP=273 :GOTO *SENTAKU
2110 *A32 :A$="カンボジャ" :XP=347:YP=281 :GOTO *SENTAKU
2120 *A33 :A$="ラオス" :XP=340:YP=254 :GOTO *SENTAKU
2130 *A34 :A$="ベトナム" :XP=351:YP=243 :GOTO *SENTAKU
2140 *A35 :A$="中華人民共和国" :XP=380:YP=164 :GOTO *SENTAKU
2150 *A36 :A$="モンゴル" :XP=346:YP=133 :GOTO *SENTAKU
2160 *A37 :A$="大韓民国" :XP=417:YP=172 :GOTO *SENTAKU
2170 *A38 :A$="朝鮮民主主義人民共和国":XP=410:YP=163 :GOTO *SENTAKU
2180 *A39 :A$="ホンコン" :XP=388:YP=230 :GOTO *SENTAKU
2190 *A40 :A$="マカオ" :XP=380:YP=232 :GOTO *SENTAKU
2200 *A41 :A$="マレ-シア" :XP=338:YP=313 :GOTO *SENTAKU
2210 *A42 :A$="シンガポ-ル" :XP=346:YP=322 :GOTO *SENTAKU
2220 *A43 :A$="インドネシア" :XP=360:YP=353 :GOTO *SENTAKU
2230 *A44 :A$="ブルネイ・ダルサラ-ム":XP=390:YP=305 :GOTO *SENTAKU
2240 *A45 :A$="フィリッピン" :XP=410:YP=262 :GOTO *SENTAKU
2250 *A46 :A$="パプアニュ-ギニア" :XP=527:YP=363 :GOTO *SENTAKU
2260 *A47 :A$="スリランカ" :XP=254:YP=295 :GOTO *SENTAKU
2270 *A48 :A$="日本" :XP=455:YP=165 :GOTO *SENTAKU
2280 '
2290 *SENTAKU
2300 IF TTN=0 THEN GOTO *WRITE
2310 IF TTN=1 THEN GOTO *WRITE_NO
2320 IF TTN=2 THEN GOTO *SIRABE_WRITE
2330 '
2340 *WRITE
2350 LOCATE 14,21:COLOR 2:PRINT " "
2360 LOCATE 14,21:COLOR 2:PRINT A$
2370 GOTO 2410
2380 '
2390 *POINT
2400 MOUSE 5:MOUSE 0:MOUSE 1,X,Y,1:MOUSE 4,8,8,611,364:GOTO 2420
2410 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
2420 B=1
2430 X=MOUSE(4,0):Y=MOUSE(5,0)
2440 IF X>93 AND X<117 AND Y>27 AND Y<40 THEN GOTO *SIRABERU
2450 IF X>125 AND X<147 AND Y>27 AND Y<40 THEN GOTO *MODORU
2460 IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
2470 IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
2480 IF X>127 AND X<132 AND Y>222 AND Y<227 THEN TT=1 :GOTO *BUNKI
2490 IF X>180 AND X<185 AND Y>208 AND Y<213 THEN TT=2 :GOTO *BUNKI
2500 IF X>164 AND X<169 AND Y>202 AND Y<207 THEN TT=3 :GOTO *BUNKI
2510 IF X>159 AND X<164 AND Y>193 AND Y<198 THEN TT=4 :GOTO *BUNKI
2520 IF X>155 AND X<160 AND Y>188 AND Y<193 THEN TT=5 :GOTO *BUNKI
2530 IF X>139 AND X<144 AND Y>185 AND Y<190 THEN TT=6 :GOTO *BUNKI
2540 IF X>122 AND X<127 AND Y>155 AND Y<160 THEN TT=7 :GOTO *BUNKI
2550 IF X>101 AND X<106 AND Y>141 AND Y<146 THEN TT=8 :GOTO *BUNKI
2560 IF X>127 AND X<132 AND Y>119 AND Y<124 THEN TT=9 :GOTO *BUNKI
2570 IF X>132 AND X<136 AND Y>156 AND Y<161 THEN TT=10:GOTO *BUNKI
2580 IF X>148 AND X<153 AND Y>156 AND Y<161 THEN TT=11:GOTO *BUNKI
2590 IF X>152 AND X<157 AND Y>271 AND Y<276 THEN TT=12:GOTO *BUNKI
2600 IF X>121 AND X<126 AND Y>132 AND Y<137 THEN TT=13:GOTO *BUNKI
2610 IF X>176 AND X<181 AND Y>157 AND Y<162 THEN TT=14:GOTO *BUNKI
2620 IF X>178 AND X<183 AND Y>137 AND Y<142 THEN TT=15:GOTO *BUNKI
2630 IF X>167 AND X<172 AND Y>82 AND Y<87 THEN TT=16:GOTO *BUNKI
2640 IF X>165 AND X<170 AND Y>166 AND Y<171 THEN TT=17:GOTO *BUNKI
2650 IF X>222 AND X<227 AND Y>175 AND Y<180 THEN TT=18:GOTO *BUNKI
2660 IF X>200 AND X<205 AND Y>152 AND Y<157 THEN TT=19:GOTO *BUNKI
2670 IF X>261 AND X<266 AND Y>146 AND Y<151 THEN TT=21:GOTO *BUNKI
2680 IF X>239 AND X<244 AND Y>122 AND Y<127 THEN TT=22:GOTO *BUNKI
2690 IF X>252 AND X<257 AND Y>151 AND Y<156 THEN TT=23:GOTO *BUNKI
2700 IF X>237 AND X<242 AND Y>160 AND Y<165 THEN TT=24:GOTO *BUNKI
2710 IF X>235 AND X<240 AND Y>185 AND Y<190 THEN TT=25:GOTO *BUNKI
2720 IF X>245 AND X<250 AND Y>208 AND Y<213 THEN TT=26:GOTO *BUNKI
2730 IF X>277 AND X<282 AND Y>212 AND Y<217 THEN TT=27:GOTO *BUNKI
2740 IF X>296 AND X<301 AND Y>231 AND Y<236 THEN TT=28:GOTO *BUNKI
2750 IF X>298 AND X<303 AND Y>185 AND Y<190 THEN TT=29:GOTO *BUNKI
2760 IF X>317 AND X<322 AND Y>258 AND Y<263 THEN TT=30:GOTO *BUNKI
2770 IF X>330 AND X<335 AND Y>271 AND Y<276 THEN TT=31:GOTO *BUNKI
2780 IF X>345 AND X<350 AND Y>279 AND Y<284 THEN TT=32:GOTO *BUNKI
2790 IF X>338 AND X<343 AND Y>252 AND Y<257 THEN TT=33:GOTO *BUNKI
2800 IF X>349 AND X<354 AND Y>241 AND Y<246 THEN TT=34:GOTO *BUNKI
2810 IF X>378 AND X<383 AND Y>162 AND Y<167 THEN TT=35:GOTO *BUNKI
2820 IF X>344 AND X<349 AND Y>131 AND Y<136 THEN TT=36:GOTO *BUNKI
2830 IF X>415 AND X<420 AND Y>170 AND Y<175 THEN TT=37:GOTO *BUNKI
2840 IF X>408 AND X<413 AND Y>161 AND Y<166 THEN TT=38:GOTO *BUNKI
2850 IF X>386 AND X<391 AND Y>228 AND Y<233 THEN TT=39:GOTO *BUNKI
2860 IF X>378 AND X<383 AND Y>230 AND Y<233 THEN TT=40:GOTO *BUNKI
2870 IF X>336 AND X<341 AND Y>311 AND Y<316 THEN TT=41:GOTO *BUNKI
2880 IF X>344 AND X<349 AND Y>320 AND Y<325 THEN TT=42:GOTO *BUNKI
2890 IF X>358 AND X<363 AND Y>351 AND Y<356 THEN TT=43:GOTO *BUNKI
2900 IF X>388 AND X<393 AND Y>303 AND Y<308 THEN TT=44:GOTO *BUNKI
2910 IF X>408 AND X<413 AND Y>260 AND Y<265 THEN TT=45:GOTO *BUNKI
2920 IF X>525 AND X<530 AND Y>361 AND Y<366 THEN TT=46:GOTO *BUNKI
2930 IF X>252 AND X<257 AND Y>293 AND Y<298 THEN TT=47:GOTO *BUNKI
2940 IF X>453 AND X<458 AND Y>162 AND Y<168 THEN TT=48:GOTO *BUNKI
2950 IF B=1 THEN 2960 ELSE 2430
2960 'MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
2970 B=B+1
2980 GOTO 2430
2990 '
3000 '
3010 *BUNKI
3020 IF BN=0 THEN *QUIZ ELSE *SIRABE
3030 *QUIZ
3040 IF QQ=TT THEN *YES ELSE *NO
3050 *SIRABE
3060 TTN=2:GOTO *CHECK
3070 '
3080 *YES
3090 CY=CY+1
3100 LOCATE 15,22:COLOR 3: PRINT"★★★ 正解です。 ★★★"
3110 PCMPLAY YES_S%
3120 GOSUB *COUNT
3130 WAIT 100
3140 WAIT 100
3150 LOCATE 15,22:COLOR 1:PRINT" "
3160 IF QQN=2 THEN GOTO 3780
3170 GOTO 1700
3180 '
3190 *NO
3200 CN=CN+1:TTN=1
3210 LOCATE 15,22:COLOR 3:PRINT"☆☆☆ 残念でした。 ☆☆☆"
3220 PCMPLAY NO_S%
3230 XPP=XP:YPP=YP
3240 *CHECK
3250 IF TT=<10 THEN Q=TT :GOTO *M0
3260 IF TT>10 AND TT=<20 THEN Q=TT-10:GOTO *M1
3270 IF TT>20 AND TT=<30 THEN Q=TT-20:GOTO *M2
3280 IF TT>30 AND TT=<40 THEN Q=TT-30:GOTO *M3
3290 IF TT>40 AND TT=<50 THEN Q=TT-40:GOTO *M4
3300 *WRITE_NO
3310 LOCATE 10,22:COLOR 3
3320 PRINT"★★★ 残念でした。 ★★★ そこは 『";A$;"』 です。"
3330 GOSUB *COUNT
3340 IF QQN=0 THEN GOSUB *KIROKU
3350 WAIT 70
3360 CIRCLE (XPP,YPP),6,5,,,,F,XOR
3370 WAIT 250
3380 CIRCLE (XPP,YPP),6,5,,,,F,XOR
3390 LOCATE 15,22:COLOR 1:PRINT" "
3400 LOCATE 10,22:PRINT SPACE$(70)
3410 IF QQN=2 THEN GOTO 3780
3420 GOTO 1700
3430 '
3440 *COUNT
3450 CT=CY+CN
3460 CC=INT((CY/CT)*100)
3470 CG=INT(CC*3):IF CG>297 THEN CG=297
3480 LOCATE 44,23:PRINT " "
3490 LOCATE 70,23:PRINT " "
3500 LOCATE 44,23:COLOR 3:PRINT "(";CY;"/";CT;") "
3510 LOCATE 70,23:COLOR 3:PRINT CC
3520 LINE (280, 457)-(578, 461),PSET,%4,BF
3530 LINE (280, 457)-(281+CG,461),PSET,%3,BF
3540 LINE (280+CG,457)-(578, 461),PSET,%4,BF
3550 RETURN
3560 '
3570 *KIROKU
3580 KIR(KIRN)=QQ:KIRN=KIRN+1
3590 RETURN
3600 '
3610 '** 確認 選択 **
3620 MOUSE 5:CLS 4:LOAD@ "E_CLEAR.TIF",(165,454)
3630 LOCATE 10,21 :COLOR 2:PRINT"間違いを確かめますか?"
3640 LOCATE 20,22 :COLOR 1:PRINT" 確かめます。"
3650 LOCATE 20,23 :COLOR 1:PRINT" 確かめません。"
3660 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
3670 X=MOUSE(4,0):Y=MOUSE(5,0)
3680 IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
3690 IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
3700 IF X>199 AND X<268 AND Y>418 AND Y<432 THEN GOTO 3740
3710 IF X>199 AND X<288 AND Y>438 AND Y<453 THEN GOTO 3850
3720 GOTO 3670
3730 '
3740 '** 確認 ROOTINE **
3750 PNO=KIRN-1:QQN=1:CY=0:CN=0
3760 FOR J=0 TO PNO
3770 QQ=KIR(J):GOTO 1390
3780 NEXT J
3790 MOUSE 5:CLS 4:LOAD@ "E_CLEAR.TIF",(165,454)
3800 LOCATE 10,21 :COLOR 2:PRINT"もう一度、間違いを確かめますか?"
3810 GOTO 3640
3820 '
3830 '** END 選択 **
3840 LOAD@ "E_CLEAR.TIF",(165,454)
3850 CLS 4:ERASE KIR:ERASE NFW
3860 LOCATE 10,21 :COLOR 2:PRINT"続けますか?"
3870 LOCATE 20,22 :COLOR 1:PRINT" 続けます。"
3880 LOCATE 20,23 :COLOR 1:PRINT" 終わります。"
3890 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
3900 X=MOUSE(4,0):Y=MOUSE(5,0)
3910 IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
3920 IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
3930 IF X>199 AND X<268 AND Y>418 AND Y<432 THEN GOTO 1120
3940 IF X>199 AND X<288 AND Y>438 AND Y<453 THEN GOTO 3970
3950 GOTO 3900
3960 '
3970 IF MENU=1 THEN 3990 ELSE 4180
3980 '
3990 CLS 4
4000 LOCATE 10,21 :COLOR 2:PRINT"メニュ-に戻りますか?"
4010 LOCATE 20,22 :COLOR 1:PRINT" メニュ-に戻ります。"
4020 LOCATE 20,23 :COLOR 1:PRINT" メニュ-に戻らず終わります。"
4030 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
4040 X=MOUSE(4,0):Y=MOUSE(5,0)
4050 IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
4060 IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
4070 IF Y>418 AND Y<432 THEN GOTO 4140
4080 IF Y>438 AND Y<453 THEN GOTO 4180
4090 GOTO 4040
4100 '
4110 *MENU_E
4120 ERASE KIR:ERASE NFW
4130 *MENU_1
4140 CHAIN "B_MENU2.BAS",,ALL
4150 RUN "B_MENU2.BAS"
4160 '
4170 *OWARI_E
4180 CHAIN "B_END.BAS",,ALL
4190 RUN "B_END.BAS"
4200 '
4210 *SIRABERU
4220 IF SIR=1 THEN GOTO 4260
4230 LOCATE 14,21:PRINT " "
4240 LOCATE 14,21:COLOR 3:PRINT "クイズ中断中, 調べモードです。"
4250 GOTO 4290
4260 LINE(199,415)-(450,437),PSET,%4,BF:LOCATE 24,23:PRINT SPACE$(55)
4270 LOCATE 24,21:PRINT " "
4280 LOCATE 24,21:COLOR 3:PRINT "クイズ中断中, 調べモードです。"
4290 LOCATE 24,22:PRINT SPACE$(50)
4300 BN=1:GOTO *POINT
4310 '
4320 *SIRABE_WRITE
4330 LOCATE 15,22:COLOR 3:PRINT SPACE$(50)
4340 FOR T=5 TO 2 STEP -1
4350 LOCATE 15,22:COLOR T:PRINT"そこは 『";A$;"』 です。"
4360 WAIT 25
4370 NEXT
4380 WAIT 50:GOTO *POINT
4390 '
4400 *MODORU
4410 IF SIR=1 THEN GOTO *MENU_GAMEN'
4420 LOCATE 24,21:PRINT " "
4430 LOCATE 15,22:PRINT SPACE$(50)
4440 GOTO 1710
4450 '
4460 *MOUS
4470 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
4480 X=MOUSE(4,0):Y=MOUSE(5,0)
4490 LOCATE 55,22:PRINT X;Y
4500 GOTO 4480